home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 April / Chip CMCD0400.iso / SOFTWARE / Demo / InfoPulse / GateKeeper / gk3full.exe / data1.cab / ConfigSite_Files / services / editdhcp.agp < prev    next >
Encoding:
Text File  |  1999-06-17  |  4.3 KB  |  194 lines
  1. <html>
  2. <head>
  3. <script language="JavaScript">
  4. <!-- 
  5.  
  6. if (document.images) {
  7.  
  8.   // Preload rollover images
  9.   nav1a = new Image(78,18);
  10.   nav1a.src = "/images/addNewSubnet_b.jpg";
  11.   nav2a = new Image(78,18);
  12.   nav2a.src = "/images/help_b.jpg";
  13.   nav3a = new Image(78,18);
  14.   nav3a.src = "/images/addNewSubnet_b.jpg";
  15.   nav4a = new Image(78,18);
  16.   nav4a.src = "/images/help_b.jpg";
  17.  
  18.   // Preload rolloff images
  19.   nav1 = new Image(78,18);
  20.   nav1.src = "/images/addNewSubnet_g.jpg";
  21.   nav2 = new Image(78,18);
  22.   nav2.src = "/images/help_g.jpg";
  23.   nav3 = new Image(78,18);
  24.   nav3.src = "/images/addNewSubnet_g.jpg";
  25.   nav4 = new Image(78,18);
  26.   nav4.src = "/images/help_g.jpg";
  27.  
  28.  
  29. }
  30.  
  31. // function for rollover
  32. function msover(imgName) {
  33.   if (document.images[imgName]) {
  34.     document.images[imgName].src = eval(imgName + "a.src");
  35.   }
  36. }
  37.  
  38. // function for rollout
  39. function msout(imgName) {
  40.   if (document.images[imgName]) {
  41.     document.images [imgName].src = eval(imgName + ".src");
  42.   }
  43. }
  44.  
  45. // -->
  46. </script>
  47. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  48. <meta NAME="Author,Design" Content="GateKeeper Team; gatekeeper@infopulse.net">
  49. <meta NAME="Copyright" Content="Infopulse; www.infopulse.net">
  50. <title>Empty</title>
  51. </head>
  52.  
  53. <body bgcolor="#FFFFFF" text="#000000" link="#0000FF" vlink="#800080">
  54.  
  55.  
  56. <%
  57.     if ComDhcp.Subnet(-1)="error" and ComDhcp.Enabled then
  58.         luci = 4 
  59.     end if
  60. %>
  61.  
  62. <%
  63.     if ComDhcp.Subnet(-1)="error" then
  64.         if ComDhcp.Enabled then
  65.             luci = 4
  66.         else 
  67.             luci = 3
  68.         end if
  69.         ComDhcp.Enabled = false
  70.     else 
  71.         luci = 1
  72.     end if
  73. %>
  74.  
  75. <%
  76.     if Request.ReqParam("action") = "Disable DHCP" Then
  77.         ' Process the DHCP settings
  78.             luci = 0
  79.             ComDhcp.Enabled = False
  80.             On Error Resume Next
  81.             ComDhcp.Commit
  82.     end if
  83.  
  84.     if Request.ReqParam("action") = "Enable DHCP" Then
  85.         ' Process the DHCP settings
  86.             luci = 3
  87.             ComDhcp.Enabled = True
  88.             On Error Resume Next
  89.             ComDhcp.Commit
  90.             Response.Redirect("menuservices.htm")
  91.     end if
  92.     
  93.     If Not Err.Number = 0 Then 
  94.         ErrLine = Err.Description
  95.     End If
  96.     
  97. %>
  98.     
  99. <%
  100.     If Not Len(ErrLine) = 0 Then
  101.         Response.Write("<B><FONT COLOR=""#FF0000"">" & ErrLine & "</FONT></B><br>")
  102.     End If
  103. %>
  104.  
  105.  
  106. <% 
  107.     if (luci<3) And (ComDhcp.Enabled) then 
  108. %>    
  109. <table border="0" cellpadding="0" cellspacing="1" width="100%">
  110.   <tr valign=top>
  111.     <td width="100%" valign=top align=right><a
  112.     href="DhcpNewSubnet.agp?NewSubnet=Edit" onMouseOver="msover('nav1')" onMouseOut="msout('nav1')"><img
  113.     src="/images/addNewSubnet_g.jpg" width="220" height="24" alt="Add new subnet" name=nav1 border=0></a><a
  114.     href="hlpServices.htm" onMouseOver="msover('nav2')" onMouseOut="msout('nav2')"><img
  115.     src="/images/help_g.jpg" width="129" height="24" alt="Help" name=nav2 border=0></a>
  116.     </td>
  117.   </tr>
  118. </table>
  119. <p><big><strong><font face="Arial">DHCP server</font></strong></big></p>
  120. <table border="1" cellpadding="0" cellspacing="0" width="95%">
  121.  
  122.  
  123.     <tr>
  124.         <td width="60%" bgcolor="#183159"><strong><font face="Arial" color="#FFFFFF">
  125.             Subnet
  126.         </font></strong></td>
  127.         <td width="10%" bgcolor="#183159"><strong><font face="Arial" color="#FFFFFF">
  128.             Action
  129.         </font></strong></td>
  130.         
  131.     </tr>    
  132.        
  133.     <%
  134.         index=0
  135.         while (ComDhcp.Subnet(index)<>"")
  136.         name=locName
  137.         ip=locIp
  138.     %>
  139.     <form method="POST" action= "/services/editDHCPSubnest.agp">
  140.         <tr>
  141.         <input type="hidden" name="identifier"  value="<%Response.Write(comDhcp.Subnet(index))%>" >
  142.         <td width="60%"><A HREF="editDhcpClients.agp?identifier=<%Response.Write(comDhcp.Subnet(index))%> ">    <%Response.Write(comDhcp.Subnet(index))%> </A></td>        
  143.         <td width="10%" nowrap="TRUE">    
  144.             <input type="submit"  name="action" value="Properties">
  145.             <input type="submit" name="action"  value="Delete"></td>
  146.         </tr>
  147.     </form>
  148.         
  149.     <%        index=index+1
  150.         wend
  151.     %>
  152. </table>
  153. <br>
  154.  
  155. <%
  156.     End If
  157. %>
  158.  
  159. <br>
  160.  
  161. <form method="POST" action= "/services/editdhcp.agp">
  162.     
  163.     <center>
  164.     
  165.     <% 
  166.     if ComDhcp.Enabled then 
  167.     %>    
  168.         <input type="submit" name="action" value="Disable DHCP">
  169.     <%
  170.     else
  171.     %>
  172.         <input type="submit" name="action" value="Enable DHCP">
  173.     <%
  174.     end if
  175.     %>
  176.     </center>
  177. <%
  178.     if luci = 4 then
  179. %>
  180.  
  181. <br>
  182.  
  183.     Dhcp server could not be started! See event log for details.
  184. <%
  185.     end if
  186. %>
  187.  
  188. </form>                
  189.  
  190. <font size="1" face="Arial"><%Response.Write(GateKeeper.Version)%></font>
  191.  
  192. </body>
  193. </html>
  194.